home *** CD-ROM | disk | FTP | other *** search
/ Iona Software Demo / MacWin_IonaSoftware_DemoCD.iso / pc / demo.exe / demo.DXR / 00010_go BC movie.ls < prev    next >
Encoding:
Text File  |  1996-02-23  |  674 b   |  27 lines
  1. on mouseDown
  2.   global BCmovie, bcMus, reallyQuit
  3.   set the timeoutScript to EMPTY
  4.   sound stop 1
  5.   sound stop 2
  6.   sound playFile 1, bcMus
  7.   set wait to 2000
  8.   set HitSprite to the clickOn
  9.   puppetSprite(HitSprite, 1)
  10.   repeat with i = 1 to 6
  11.     repeat with c = 1 to wait
  12.     end repeat
  13.     set the castNum of sprite HitSprite to the number of cast ("BC " & i)
  14.     updateStage()
  15.   end repeat
  16.   repeat with i = 6 down to 1
  17.     repeat with c = 1 to wait
  18.     end repeat
  19.     set the castNum of sprite HitSprite to the number of cast ("BC " & i)
  20.     updateStage()
  21.   end repeat
  22.   puppetSprite(BC, 0)
  23.   set reallyQuit to 0
  24.   set the timeoutScript to EMPTY
  25.   play movie BCmovie
  26. end
  27.